home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Works - The Rig…for All Your Daily Tasks / Microsoft Works - The Right Tools for All Your Daily Tasks.iso / bookshlf / setup.inf < prev   
Text File  |  1991-09-28  |  9KB  |  203 lines
  1. ;  Microsoft Bookshelf for Windows - Demonstration Setup 
  2. ;  (c) 1991, Microsoft Corp.
  3.  
  4.  
  5.  
  6. SetVariable(szWaitMessage, "{\b Setup will install Viewer runtimes, "
  7.                "Bookshelf Demonstration screen fonts and Program-manager icons.\par "
  8.                "}")
  9. SetVariable(szDoneMessage, "The installation of the Bookshelf for Windows - 1991 Edition%n"
  10.                "Demonstration is now complete.%n%n"
  11.                "For the changes made to AUTOEXEC.BAT to become effective "
  12.                "you must reboot your computer.  To do this, you must first "
  13.                "exit Windows and then simultaneously hold down the Ctrl, Alt, and "
  14.                "Del keys.%n%n")
  15.  
  16. SetVariable(iSize,"1000000")
  17.  
  18.  
  19. WindowTitle("Setup: Windows Bookshelf Demonstration - 1991")
  20.  
  21. GetCurPath(szBkshelfPath)         ; Path to the CD
  22.  
  23. GetWinPath(szWinPath)     ; Path to the window directory
  24.  
  25.  
  26. GetFromWinini(szPath,"multimedia viewer","ViewerPath","C:\BKSHDEMO")
  27.  
  28. lbPromptPath:
  29.  
  30. PromptPath(szViewerPath,<szPath>,
  31.        "Copy Bookshelf program files to:", "",  "")
  32.  
  33. GetSpaceAvailable (iSpaceAvailable, <szViewerPath>)
  34.  
  35. IfLowerGoto (<iSize>, <iSpaceAvailable>, lbPathOK)
  36.  
  37. AskYesNo (Prompt, "Yes",
  38.     "There is not be enough space to install Bookshelf 1991.  "
  39.     "Bookshelf requires "<iSize>" bytes of disk space.  "
  40.     "Would you like to enter a new path for the files?  ",
  41.     "Click on {\b Yes} or press {\b 'Y'} to enter a new path for the "
  42.     "Multimedia Viewer files.\par "
  43.     "Click on {\b No} or press {\b 'N'} to exit Setup so you can"
  44.     "make sufficient space available on your hard disk.\par "
  45.     "Run Setup again when there is enough free space on your hard "
  46.     "disk.  ")
  47. IfEqualGoto (<Prompt>, "Yes", lbPromptPath)
  48. SetVariable(szDoneMessage, "The installation of Microsoft Bookshelf for Windows - 1991 Demonstration%n"
  49.                "is not complete.  There was insufficient space on your hard disk.%n%n"
  50.                "Microsoft Bookshelf Demonstration requires "<iSize>" bytes of disk space.%n"
  51.                "Please run Setup again when there is enough free space on your hard disk.%n")
  52.  
  53. Goto(lbDone)
  54.  
  55.  
  56. lbPathOK:
  57.  
  58. MakePath(<szViewerPath>)
  59.  
  60.  
  61. ModifyAutoexec (<szViewerPath>, "", "",
  62.     "Setup must now make some changes to your {\b AUTOEXEC.BAT} file.  "
  63.     "Click on the desired option and then click on {\b OK} to continue.  With "
  64.     "the keyboard, use the arrow keys to select the desired option, and "
  65.     "then press {\b Enter} to continue.\par\par "
  66.     "{\b o} Select the first option to let Setup modify your "
  67.     "AUTOEXEC.BAT file\par "
  68.     "{\b o} Select the second option to first view the changes\par "
  69.     "{\b o} Select the third option to make the changes youself at a latter time\par\par",
  70.     "You can now view the proposed changes to the {\b AUTOEXEC.BAT} "
  71.     "file.  If the changes were not made to your satisfaction, you can "
  72.     "modify the proposed batch file by editing the file in the top "
  73.     "window.  Click on {\b OK} or press {\b Enter} to replace the "
  74.     "current batch file with the proposed one.  To return to the "
  75.     "AUTOEXEC modification options dialog, click on {\b Cancel} or press "
  76.     "{\b Esc}.", 
  77.     "Setup can save the proposed {\b AUTOEXEC.BAT} file to a file that "
  78.     "you specify.  You will then need to modify the {\b AUTOEXEC.BAT} "
  79.     "file and then reboot your computer in order for Viewer "
  80.     "to function properly.  To return to the AUTOEXEC modification "
  81.     "options dialog, click on {\b Cancel} or press {\b Esc}.")
  82.  
  83.  
  84. OpenCopyProgress("Setup is copying the Bookshelf Demonstration Program.",
  85.     <szWaitMessage>)
  86.     IfFileExistsGoto (<szViewerPath> "FTENGINE.DLL", DontCopyFTENGINE)
  87.         CopyFile("VIEWER\FTENGINE.DLL", <szViewerPath> "FTENGINE.DLL",  41000)
  88.     DontCopyFTENGINE:
  89.  
  90.     IfFileExistsGoto (<szViewerPath> "FTUI.DLL", DontCopyFTUI)
  91.         CopyFile("VIEWER\FTUI.DLL",     <szViewerPath> "FTUI.DLL",      54000)
  92.     DontCopyFTUI:
  93.  
  94.     IfFileExistsGoto (<szViewerPath> "MMP.DLL", DontCopyMMP)
  95.         CopyFile("VIEWER\MMP.DLL",      <szViewerPath> "MMP.DLL",       10000)
  96.     DontCopyMMP:
  97.  
  98.     IfFileExistsGoto (<szViewerPath> "MVAFF.DLL", DontCopyMVAFF)
  99.         CopyFile("VIEWER\MVAFF.DLL",    <szViewerPath> "MVAFF.DLL",   39000)
  100.     DontCopyMVAFF:
  101.  
  102.     IfFileExistsGoto (<szViewerPath> "MVAPI.DLL", DontCopyMVAPI)
  103.         CopyFile("VIEWER\MVAPI.DLL",    <szViewerPath> "MVAPI.DLL",    7000)
  104.     DontCopyMVAPI:
  105.  
  106.     IfFileExistsGoto (<szViewerPath> "MVAUDDLG.DLL", DontCopyMVAUDDLG)
  107.         CopyFile("VIEWER\MVAUDDLG.DLL", <szViewerPath> "MVAUDDLG.DLL",  38000)
  108.     DontCopyMVAUDDLG:
  109.  
  110.     IfFileExistsGoto (<szViewerPath> "MVAUDIO.DLL", DontCopyMVAUDIO)
  111.         CopyFile("VIEWER\MVAUDIO.DLL",  <szViewerPath> "MVAUDIO.DLL",    8000)
  112.     DontCopyMVAUDIO:
  113.  
  114.     IfFileExistsGoto (<szViewerPath> "MVBMP.DLL", DontCopyMVBMP)
  115.         CopyFile("VIEWER\MVBMP.DLL",    <szViewerPath> "MVBMP.DLL",   39000)
  116.     DontCopyMVBMP:
  117.  
  118.     IfFileExistsGoto (<szViewerPath>"VIEWER.EXE", DontCopyVIEWER)
  119.         CopyFile("VIEWER\VIEWER.EXE",   <szViewerPath> "VIEWER.EXE",         250000)
  120.     DontCopyVIEWER:
  121.  
  122.     IfFileExistsGoto (<szViewerPath>"MVPUBMID.DLL", DontCopyMVPUBMID)
  123.         CopyFile("VIEWER\MVPUBMID.DLL",     <szViewerPath>"MVPUBMID.DLL",   250000)
  124.     DontCopyMVPUBMID:
  125.  
  126.     IfFileExistsGoto (<szViewerPath>"MVPUBAUD.DLL", DontCopyMVPUBAUD)
  127.         CopyFile("VIEWER\MVPUBAUD.DLL",     <szViewerPath>"MVPUBAUD.DLL",   250000)
  128.     DontCopyMVPUBAUD:
  129.  
  130. SetProgressBarMsg("Setup is copying the Bookshelf Demonstration Icon files.")
  131.     CopyFile(books\books.ico     , <szViewerPath>books.ico   , 766)
  132.     CopyFile(books\encyc.ico     , <szViewerPath>encyc.ico   , 766)
  133.     CopyFile(books\bquote.ico   , <szViewerPath>bquote.ico  , 766)
  134.     CopyFile(books\atlas.ico     , <szViewerPath>atlas.ico   , 766)
  135.  
  136. CloseCopyProgress()
  137.  
  138. OpenFontProgress (
  139.     "Setup is installing fonts.", <szWaitMessage>)
  140.  
  141. ; Note:  The demo is intended for VGA systems
  142.  
  143. ; VGA fonts
  144.     LoadScreenFont(viewer\vgalsb.fon)
  145.     LoadScreenFont(viewer\vgalsb1.fon)
  146.     LoadScreenFont(viewer\vgalsb2.fon)
  147.  
  148. CloseFontProgress()
  149.  
  150.  
  151. OpenProgmanProgress("Installing Bookshelf 1991 Demonstration in a Program Group",
  152.             <szWaitMessage>)
  153.  
  154.     OpenProgmanGroup("Bookshelf - 1991 Demo","Delete")
  155.  
  156.     AddProgmanItem("Bookshelf Demo",
  157.            <szViewerpath>"viewer.exe "<szBkshelfPath>"books\books_d.mvb",
  158.            <szViewerPath>books.ico, 0)
  159.     AddProgmanItem("Bartlett's Demo",
  160.            <szViewerpath>"viewer.exe "<szBkshelfPath>"books\bquote_d.mvb",
  161.            <szViewerPath>bquote.ico, 0)
  162.     AddProgmanItem("Encyclopedia Demo",
  163.            <szViewerpath>"viewer.exe "<szBkshelfPath>"books\encyc_d.mvb",
  164.            <szViewerPath>encyc.ico, 0)
  165.     AddProgmanItem("Atlas Demo",
  166.            <szViewerpath>"viewer.exe "<szBkshelfPath>"books\atlas_d.mvb",
  167.            <szViewerPath>atlas.ico, 0)
  168.  
  169. CloseProgmanProgress()
  170.  
  171.     ; Point to the book
  172.     AddToProfileIni(<szWinPath>viewer.ini, "Bquote_d" , "Path" , <szBkshelfPath>BOOKS\)
  173.     AddToProfileIni(<szWinPath>viewer.ini, "Encyc_d"  , "Path" , <szBkshelfPath>BOOKS\)
  174.     AddToProfileIni(<szWinPath>viewer.ini, "Atlas_d"  , "Path" , <szBkshelfPath>BOOKS\)
  175.     AddToProfileIni(<szWinPath>viewer.ini, "Books_d"  , "Path" , <szBkshelfPath>BOOKS\)
  176.  
  177.     ; Give the book a title
  178.     AddToProfileIni(<szWinPath>viewer.ini, "Bquote_d" , "Title" , "Bartlett'Demo")
  179.     AddToProfileIni(<szWinPath>viewer.ini, "Encyc_d"  , "Title" , "CCE Demo")
  180.     AddToProfileIni(<szWinPath>viewer.ini, "Atlas_d"  , "Title" , "Atlas Demo")
  181.     AddToProfileIni(<szWinPath>viewer.ini, "Books_d"  , "Title" , "Books Demo")
  182.  
  183.     ; Setup the index file for all books.
  184.     AddToProfileIni(<szWinPath>viewer.ini, "Bquote_d" , "Indexfile" , "DEMO.IND")
  185.     AddToProfileIni(<szWinPath>viewer.ini, "Encyc_d"  , "Indexfile" , "DEMO.IND")
  186.     AddToProfileIni(<szWinPath>viewer.ini, "Atlas_d"  , "Indexfile" , "DEMO.IND")
  187.     AddToProfileIni(<szWinPath>viewer.ini, "Books_d"  , "Indexfile" , "DEMO.IND")
  188.  
  189.     ; Setup the Near for full text seach
  190.     AddToProfileIni(<szWinPath>viewer.ini, "Bquote_d" , "Near" , "5")
  191.     AddToProfileIni(<szWinPath>viewer.ini, "Encyc_d"  , "Near" , "5")
  192.     AddToProfileIni(<szWinPath>viewer.ini, "Atlas_d"  , "Near" , "5")
  193.     AddToProfileIni(<szWinPath>viewer.ini, "Books_d"  , "Near" , "5")
  194.  
  195.     ; Setup the QFlag values
  196.     AddToProfileIni(<szWinPath>viewer.ini, "Bquote_d" , "QFLAGS" , "3")
  197.     AddToProfileIni(<szWinPath>viewer.ini, "Encyc_d"    , "QFLAGS" , "3")
  198.     AddToProfileIni(<szWinPath>viewer.ini, "Atlas_d"    , "QFLAGS" , "3")
  199.     AddToProfileIni(<szWinPath>viewer.ini, "Books_d"    , "QFLAGS" , "3")
  200.  
  201. lbDone:
  202. DisplayMessage(<szDoneMessage>  , "")
  203.